Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/generate.i

Text File | 1993-07-16 | 8KB | 1 lines

((name generate) (dependencies (stream list-fns numbers streams1 extras0 arith init boot instruct compstate)) (exported-ids ((address compstate make-stack-val) (name . make-stack-val) (mutable ()) (class . bytefunction) (argtype (t . 1))) ((address compstate stack-depth) (name . stack-depth) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate stack-ref) (name . stack-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate scanq-stack) (name . scanq-stack) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate stack-swap) (name . stack-swap) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate stack-push) (name . stack-push) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate stack-slide) (name . stack-slide) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address compstate stack-pop) (name . stack-pop) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate stack-top) (name . stack-top) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate stack) (name . stack) (mutable ()) (class . unknown)) ((address compstate make-stack) (name . make-stack) (mutable ()) (class . bytefunction) (argtype (() . 0))) ((address compstate copy-stack) (name . copy-stack) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate env-object-prev) (name . env-object-prev) (mutable ()) (class . unknown)) ((address compstate env-object-content) (name . env-object-content) (mutable ()) (class . unknown)) ((address compstate env-object-size) (name . env-object-size) (mutable ()) (class . unknown)) ((address compstate make-env-object) (name . make-env-object) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address compstate static-val-id) (name . static-val-id) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate statics-2-list) (name . statics-2-list) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate add-static) (name . add-static) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate append-statics) (name . append-statics) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate make-static-store) (name . make-static-store) (mutable ()) (class . bytefunction) (argtype (() . 0))) ((address compstate make-code-list) (name . make-code-list) (mutable ()) (class . bytefunction) (argtype (() . 0))) ((address compstate add-code-vectors) (name . add-code-vectors) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address compstate reify-code-stream) (name . reify-code-stream) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address compstate state-code) (name . state-code) (mutable ()) (class . unknown)) ((address compstate state-statics) (name . state-statics) (mutable ()) (class . unknown)) ((address compstate state-stream) (name . state-stream) (mutable ()) (class . unknown)) ((address compstate state-stack) (name . state-stack) (mutable ()) (class . unknown)) ((address compstate make-compiler-state) (name . make-compiler-state) (mutable ()) (class . bytefunction) (argtype (() . 4))) ((address compstate modify-compiler-state) (name . modify-compiler-state) (mutable ()) (class . bytefunction) (argtype (t . 2))) ((address compstate update-comp-state) (name . update-comp-state) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address compstate add-instruction) (name . add-instruction) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address instruct make-label) (name . make-label) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate make-new-code-stream) (name . make-new-code-stream) (mutable ()) (class . bytefunction) (argtype (() . 0))) ((address generate do-code-sequence) (name . do-code-sequence) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-allocate-closure) (name . do-allocate-closure) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address generate do-push-global) (name . do-push-global) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-push-static) (name . do-push-static) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-push-fixnum) (name . do-push-fixnum) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-global-set) (name . do-global-set) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-nop) (name . do-nop) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-pop) (name . do-pop) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-apply-any) (name . do-apply-any) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-apply-cfn) (name . do-apply-cfn) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-apply-bvf) (name . do-apply-bvf) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-apply-methods) (name . do-apply-methods) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-stack-ref) (name . do-stack-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-set-stack-ref) (name . do-set-stack-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-alloc) (name . do-alloc) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-cons) (name . do-cons) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-car) (name . do-car) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-cdr) (name . do-cdr) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-slot-ref) (name . do-slot-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-setter-slot-ref) (name . do-setter-slot-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-setter-cdr) (name . do-setter-cdr) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-vector-ref) (name . do-vector-ref) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-add-comment) (name . do-add-comment) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-alloc-env) (name . do-alloc-env) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-env-ref) (name . do-env-ref) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address generate do-setter-env-ref) (name . do-setter-env-ref) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address generate do-pop-env) (name . do-pop-env) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-add-label) (name . do-add-label) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-branch) (name . do-branch) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-branch-on-nil) (name . do-branch-on-nil) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-code-sequence) (name . do-code-sequence) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-push-label) (name . do-push-label) (mutable ()) (class . bytefunction) (argtype (() . 2))) ((address generate do-return) (name . do-return) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-slide) (name . do-slide) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address generate do-swap) (name . do-swap) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address generate do-inline-code) (name . do-inline-code) (mutable ()) (class . bytefunction) (argtype (() . 3))) ((address generate do-dead-code) (name . do-dead-code) (mutable ()) (class . bytefunction) (argtype (() . 1))) ((address instruct bc-macro-type) (name . bc-macro-type) (mutable ()) (class . unknown))))